perm filename YIELD2.PAS[TEX,ALS] blob sn#613100 filedate 1981-09-21 generic text, type C, neo UTF8
COMMENT āŠ—   VALID 00002 PAGES
C REC  PAGE   DESCRIPTION
C00001 00001
C00002 00002	program YIELD(OUTPUT)
C00003 ENDMK
CāŠ—;
program YIELD(OUTPUT);
var  BRACKET,YIELD: integer;
begin
writeln('Break even Bracket in terms of current yield');
writeln('current   Tax bracket for different yields');
writeln('yield   12.2%  12.4%  12.6%  12.8%  13.0%  13.2%
for YIELD:=13 to 30 do
begin BRACKET :=100 -(1260 div YIELD);
if BRACKET <= 50 then writeln(YIELD:3,BRACKET:7);
end; end.